home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / AMOSList0993.lzh / AMOSLIST / 000233_amos-request@svcs1.digex.net_Fri Sep 24 07:28:50 1993.msg < prev    next >
Internet Message Format  |  1993-10-03  |  9KB
  1. Received: from nextsun.INS.CWRU.Edu by access.digex.net with SMTP id AA18497
  2.   (5.65c/IDA-1.4.4 for <mcox@access.digex.com>); Fri, 24 Sep 1993 07:28:46 -0400
  3. Received: from svcs1.digex.net by nextsun.INS.CWRU.Edu with SMTP (5.65b+ida+/CWRU-1.5.2-freenet-gw)
  4.     id AA10349; Fri, 24 Sep 93 03:38:15 -0400 (from amos-request@svcs1.digex.net )
  5. Received: by svcs1.digex.net id AA11945
  6.   (5.65c/IDA-1.4.4 for amos-list-out); Fri, 24 Sep 1993 03:24:13 -0400
  7. Received: from access.digex.net by svcs1.digex.net with SMTP id AA11937
  8.   (5.65c/IDA-1.4.4 for <amos-list@svcs1.digex.net>); Fri, 24 Sep 1993 03:24:09 -0400
  9. Received: from trout.nosc.mil by access.digex.net with SMTP id AA03704
  10.   (5.65c/IDA-1.4.4 for <amos-list@access.digex.net>); Fri, 24 Sep 1993 03:24:07 -0400
  11. Received: from manta.nosc.mil by trout.nosc.mil (5.59/1.27)
  12.     id AA13025; Fri, 24 Sep 93 00:24:04 PDT
  13. Received: by manta.nosc.mil (4.1/SMI-4.1)
  14.     id AA27712; Fri, 24 Sep 93 00:23:27 PDT
  15. Date: Fri, 24 Sep 93 00:23:27 PDT
  16. From: czar1@manta.nosc.mil (Scott C. Czarcinski)
  17. Message-Id: <9309240723.AA27712@manta.nosc.mil>
  18. To: amos-list@access.digex.net
  19. Subject: InterfaceEx
  20. Status: RO
  21.  
  22. -------
  23. Hey,
  24.    OK, I think I figured out the problem I was having. As it turns out the
  25. server I use does not allow or like the backslash character. This means the 
  26. previous archieve I sent will not de UUencode. (I've tested this on by
  27. mailing to myself first, so I know it works!!!)
  28.        Archieve type: UUencode, and LHA'ed
  29.     File name:     InterFace.lha
  30.     File Type:     AMOS Pro
  31.     Program Type:  Amos Pro Interface example.
  32.                - Provides example of using "DIgit" for entering
  33.              numbers using the interface language.
  34.                - Shows how to pass main prog varibles to the
  35.              interface language.
  36.                - Shows how to read the entered varibles, and
  37. t             transfer back to main program.
  38.                - Simple "BUtton" read routine, which includes
  39. u                 underlining a character, and setting
  40.              default keyboard equal.
  41.                - And an example of a good-looking GUI.    ;')
  42. ------------------------------ CUT HERE ------------------------------
  43.  
  44. begin 644 InterfaceEx.lha
  45. M+"$M;&@U+?<0```,.@``):DO&P``%D1I9VET+4EN=&5R9F%C945X+F%M;W,NC
  46. MRPR9?;WNK:;?^^\DA)MC!@VP&&9#^V`-L$-I>\FFF!(VV`:!)`=&@(4+`0GY/
  47. ML5&TG$DR,E.1H"2TDTO+.:FLLE+H::62:2Z6;FNMET-FBS<M([+9>&-KT++@6
  48. MUQK+9MM"66;,(X_??>]Y>220TPD'(62<+KI+FT]TMS:PZ.Z&[&YNKNENOOP24
  49. MWXE;I;J[NZW1MMNRNZS56)K!^^:M&NW!/]F7#`YCJR^,3O1%WT!L[^?\`49$?
  50. M'1&SIO\_PB\5!2P(B:V:,"`\?/75J;3O8*+^S=.T3:6Y=6UO:HFN(#Q[:&TFU
  51. MGM'D%,AR2#_D@L8@TL1`3=8Z>W`G^`B[@BA)JNG0J+=U:(P#-*NG:(4[1MGU7
  52. M?A54W^Z!_[$%SM7D`R*K,'3VR-!VJ)G=Q`@OK8VK1@/KA^+4*]T]VQK1^ZM]&
  53. MJ\=P/^$#T;ZWW#]Y:;6"9K5U:!K%V^@P3:/L73]V\>P-L\IS5UK:F3`(!GZ,]
  54. M!%_MT;*G_\:2G^]]<(P"@%@5#M];6R+T4R@OM`9V*FM:UZ^@.Z>V>6OK$'I2R
  55. MMX$UL3O0+IGS@ZA.=+8EW70E.YW<*=PR`;'-F2AS?9@YFGX`R78WQ`<S^F!SF
  56. MCFP`T79>]!S-W@\WP-U2+$[[%3YXS6*=YC>J=YKPU>_A*@:H.&25[Z]3NN_5`
  57. MBI+E2[YW2/'^:Z>CUVJU?5:`I6-D,K%18/T;)X[4:<7SI[)U!=48!D2$<MU;P
  58. MYU9&HRQU(IX",`^G=;3;48T*6)U+>*K"L9YXN_3)MG-8HP<_<6XQKN]M9/WU8
  59. MN:`[?HHO2HQSIP,11]<Z!+O5OC##.`RKZXS1FTT(DG*80'.U^J,X9MF9]4S;@
  60. MGMF:%4?H8B6J'?2W,%^Z-9/(%O:NMP9T_1=$<Y[")\T)S0/9H(5>AZ!UR(G5H
  61. MHS<,VKAG4U1[,]L21Y#"#5^EZTL_&$BJZD$^XTX>I,K.%S:H2`8XA]BN!^(_N
  62. M26H050'<@"\ZDL(K59F.9\Y'A]QYS&M'+FV-?!MGMLB"I#7$0TU+G6(0475L.
  63. MU(94+KD<6@4Q3XF*NBE'IB[ME&DU[\J[:-R-?,J_FW=/WFTM1JYO'L%\716P#
  64. M4_?7$%X]$^3YW-0L`W*::LG(G$V9:ASP<Z2#GQEER1=Z-:%485(MH<JIUN*34
  65. MB@-H4\_/<CG+'6NGZ=`UJSI.;;&SXVPC4@NTR^$0<NL03Q(.N?O(*(T=C:1Y0
  66. M`VR8P%#A#-#(&;`DL-K75J-,7\QQ0$7T;IZ[1M12C2W(W:DSC580S-K#+9G2F
  67. M#@R6VQX%;Q9O9"ZX2LY8Z@)TVF>/X$$Q`AGKJV1*4'^XVU/JFV+#;A&VQ1=O<
  68. MA>.Y6-P!F,(VT2QM;BQ5/]IKB#</T5:]J;&?7GMF;'6C0]I-DF"Q(7YTN]"-I
  69. MZ9$ULZ>/8T;5N_?#>2MO=I9T&$!SXT/6KAH-#8J(#9NT9MB$(A_-A"^9L-5<R
  70. M0;496S-=;7&<ZX^H0:M\_J=*S/&D3K:YFT9U/LG>>$[C3;J6[.K9MVC1F@>X$
  71. M(/]AK:QO;)F\4I(VU(IG%-N6PAV@BCKAP0I4K"D1:<<7>=4G)3?:U-7OKE&!@
  72. M[=9]L>T9MW'Y*S[0FO-6RK7E*,_.#<:J4VK5O[-FO`*KCW"JG:2_P*J!_]Y5S
  73. M/:XI5JO=*KAM+*JC+XUGW5A/J/-TB-F3^:^X@P1\$KW)+ZW"`[*OU@UIR8VTW
  74. M$[H-Q.[--!=#L-9J4T/K[!#/:&PU9FK0O`**&=/ZC#FS<)_7JM>9J>X,?4YZ:
  75. M3]&NA^!L*_5F::'X'MG\]FV&3?HH`7A%(+']O@'^I:YZ3](Y_P/)+5MSJ6(8-
  76. M+R"5VO.1/%'TMD-?;W[YZ.'[,P8HD,E@U][&"^'QMQIF:"D9D[:EPA-L2<GE^
  77. M!DSI-79/'5J^M*5JS0ID[K<7`;4U.K^I$YT_70/*#=*09MAH\"44%&;H)H%[,
  78. M0FV9U+7FB<1CO13\5WC)_4X"?MY:?U*:?B4<1/VZ:?RA/#3]Q'3^JP$_<2T_E
  79. MJE$_<2T_<*)^X_.G]6WCI_5X"?M6E-AI_5II^)1]U/Z`1,:!9*!@"D7RV>>-$
  80. MYA23-J(W2*2]P'ULC!VH^2BK)TL0Z;"(=2JP,N8S!&K64P4^FCL$#]#"*.5)R
  81. M46J;!B*DE@_M"IZ;!\$5Q%%D1%-95`MJVEJ*@JHKC%45LJHKCWE%0D1(-95!^
  82. M%JWEJ*I02(J2U%4H*8(KAJ*V;2%%E4%VKB6HJE!@BI+452@U@BN&HM3(LN-9H
  83. M5!T]I+452@\14Q%%/4H/X(KT:$)E:$+=Q$H0VPW6S0(-Q9V:M"+#8352(E3Y=
  84. M5"$^70A/5H0U6+$J>K0AJNE$JXD1*GRJ$)\NA">K0A<8L2IZM"%QTHE:N1$J,
  85. M?*H0GRZ$)ZM"&K_QB55H0U>%$KZ^AIYM2)4]HM$JCMQTV"5$UAL//:R8FY5&V
  86. ML^71K/4HUD5);#U*->"*X:BGR8FY5&M"71K/4HUD5,114%*->"*X:BH2?..E!
  87. M4)T)="=!2A.14EJ*I0GP17#45M(\0]"50G0ET)T%*$Y%26HJE"?!%<119'B'7
  88. MH2J$Z$NA.A4JJ+B^(>@W547WO$//J9$[J$J=U"7.Z@K.[4XL[J"L[M3TIW6\5
  89. MB=U"5.ZVESNH*SNM\6=ULK.ZWZ4[LGW;&TJ=UM+G=;*SNU6+.ZV5G=JNE.[)5
  90. M]K)M@Z!G+G=;*SNEJ'F(HHSNM&G-%>9J[JFT-O;+!V+@WY-G)B$O)EWS2A+U?
  91. M=P],HM!J644Z8M31I*^5L^:FX)F4[Y#V=H#P=QQ76`?/$18"(],N"R(1^1'$-
  92. M:!@N_?"EBYJF2N^H&I.2.H`<KO!"@2_$Q`=.I>0-J.Q8D'M.8'KHH>.U!N>9*
  93. MM/+E?]`MJ=S/V2U%M=L>8-@EUN`?4]D7B$^RC);*+([`3-&L!W"@=R6=FP5_P
  94. MF#@FQW'59/8VLIEM@>:85MN_>P53#GR8?-'3US'W9M3Q35MX),Y?&'<*GL"S4
  95. M1?FLWX[\9%>,.SLI[`5$V`!;:^R@K7:)-Z.=7!<Q%G7AOD^[-79SXJ&Q`>\5J
  96. M!QVN6DX:S!UB.IM^J[32=N!T]F:CTBD,>CM7T!&C+:ZWS\D>'<U[(MN>V[QU7
  97. M$EP6&T_VX?7!NP>#OZSU]!-M!VRD4_(8=.W:,"`9$EK'4']NGM1-/$W'./KT1
  98. M*GDJ#&A;W$$`Z<EWV_KKNY8;?VEW&!3.!CC=/&H/`%EC/DQ0L6-W@@9PMD(+3
  99. M.&41R3$8CZ5YQ0^UUM7P`.'KMAE`.A!D_$4WIMVB6YCA.C-+W8\[T?G-@*KG2
  100. M:(2")%F.W'=214>:V([L?"',[X=;!$1G+(>=\//!'G[PO?&&7(#OS>0]^//9P
  101. MCSX0\_QCO,8E#(TH\N1Y[$>>]'GACS^$3I0#SJ!Y''G1*\[Q!YY8T`\T/.I'P
  102. MD<>>''GAQYZ_&3L2//ZT>10>?$OSXX\^./DAQ\D)WR5Z&0\@9'YKS@[B;#&:L
  103. MR9[J;^Y.)3G'G.!,6^-NQ9?J`^-.>.*?\.;V>/X"ZZ8?+QGB37&QO&F_/G$F.
  104. M$Q-8\?TQC_ZPJM<^?[;V]_KJ.L?66?TMS$:&?G]/9V8LT\/Z[%EE78O7RPM%J
  105. M.&A*P&:T64KNH"ZW&Y[*Z[(>02NZCN?XON_AY=]?I7]]>\GCPX00CES!($O4E
  106. MX/7:WJNUX?)X_"WGPPT?QLQ=#A_R?U>AG=!W?5:=@$(2BO93G>%B]A]#B?HM?
  107. M=1_#VF_/."%NYG&9+TO0]+^7^@<BZ_3MOLTF[/#Y='M3LF.66%]'8=_U._U'.
  108. MB_![3[=-U]?CIX!P_WMADO-I?C]6\WU7\W)?7U^<?LQV,LXLBZ2U7[?SO%^L2
  109. MNXG4^;[[OSMQ-?:=;_-TM'.3LPO8J`']OEUFOLOB_,RLQI=IU+?[]CV\.HKN6
  110. M1^PVX3C1TM.F/77>77T=5=[+0>!KOBP&7$QS;23VL7?=F4@OMSP;XA_F_SE\_
  111. MX/;E)L/OTO_F/I75VD'GI))?<^%YO&@?$H>O^JGPM@PPB_LR.\7-3)0V7*W!+
  112. ML?RKD.4:L^_876Z,ER3K_R:)*^#3T203)JPNC)+Z1@NDN48)PNC"F*?W\?''2
  113. M!?Y`E]I#(OW,,B_>PR+\*&1?X?"$O]3PD@F(=871DEXT,2_>PQ+X]&%+")(8T
  114. MDA.@CR$KQWMI?6!6:+J*SJ*P5PV7<_6\[T.5ZD5\U:!V[%A/9==49[YG\'('>
  115. M#X7D0@HOJS@FA+S_[+W)9?K,WWV[7!#&#%EJBQ/'^V\_7^3FWE?]CN@K:[LU5
  116. MW;<N]Y?)](H0?);[7X_"RL+[&1;0L:$*M+"V'[-CWVIS?6_N5]MOG'ZS&9)UY
  117. M?79^:@3^G[_Y]YO];VWWF<]5Y/&EBW=UX&O^UUO\YWX.^]&EL0X/:;;Q=3.S8
  118. M^193+`Y>6=Z=IWC,_3<3MV'>_M9KY7XJ;ZFSRG`?N>[V=#1;[*)CEWY=WL/`*
  119. MV51E['P]-5[S\#'NZ/M<[NNO8%(`/_1<'1;'S+X+KH2#E'LE_ZQTI&4JR[K-P
  120. MEQO_V!$P+T5*!7J77F\;L/AT#I/CKUL%;X#+5F80+J.B2A+_4[$:!6Y#EFK+H
  121. MVPS&[,EQSK^\HDKT*W4#0+FAH%WH]627;%0,Y94#!Z,<OV(^#'S?^S!EHQ+%M
  122. M%7$6-Q6D6.56D6-U6D6/)KB+&GKAHOUI%B9K627:UI49:TJ,H^2QE]Q_J/W4#
  123. M>B*</A9Y$O"W*B*'Z0\W(5B5]T>!*-_;C!IZW^Z2]C^*#)7X\I;P>;U6KLT!&
  124. MP%"&/!D"^$=##CA;JX#$-F/SH!ITL19Z-42&.`T6P(_SE9AT99YZ0L_;#SV'S
  125. MN+.=ZSQ@*1CHK,O%8OYOS+-SU)9"@716:,\^EC+/X(\_J?]//&]O[K[!YO_^'
  126. M7V8D!?^C(_>@+]C*]'`@I_*R/I04]#.92&1G`]#*#AL"9&=1CDWO/NM>M_O1;
  127. M\+>1Q+&P2X\+##KX?*>B_TK^-_Q#I?A#H5\)PR"WFPAS9T.@7PF@MKB_%;R(S
  128. MAT27J_*X<()C>AO5NOA>)Y6]"8A`KTF06^2G3NNX"8CM=[>,UW,B5.5_VUU<?
  129. MQ"+_Q!ICTU^&*U*.XN.UZA.A.%X6[%9M#*2U[.^%X/,:\+/F,=J/:]U\KRN'6
  130. M':^GT$=F56PL0_='W?3APRGC+1S\R`^8QR88HQY:20_>MA[,?#V$[IA\PF'S>
  131. M"M!/,#S0DH=\GICA@+S>4P>:D%?-%HX!1!%!^EY295A*A+$/IQ@FB+=SAHRP<
  132. MP2'WPHI/F$P7U3NI&>L=XY-'0D`RY`J6_5"(ASO)2.BNH"BB0Z"B&ZC'>\YQO
  133. MW_I(G+EB?-2">HH92X)?-(F)H[&;CQ<%;XBEDQ:,>^+[#:Y"YQRCF4\XCZ<OD
  134. MB%.&L%L0\R4Q\O*EDL?F$P7\K;?,P5WO@7R7=L0Y$I'R7$94O&)CYVZBKCR.@
  135. M<=[U1MJY8Z\B5%FFVT?2\]%+Z4(BEO!K<16YY.1$;FQYHUHY0BQR+)C02(Y58
  136. M8150HT1OB83EN:68D<X>7@/1R<B)VC36-..L/B2&_T$B.V2?XE<"(?_I\YP*9
  137. M0=Y@.KR<B*-9@:<>8=RI'I%/]YZI_\^)'LL5<M(*JBHIN+#YRL?4*0X?BX*_%
  138. MA%<)"D,#XO0<')8'Q>=1K*/^(5X<4-R?-BS*0'!9C02)!?:<+YF"P4I!^8]?R
  139. M)R(N8M'<K+GCJR%15_Y'JGWTXDAD9P?(YT0:<AZI6W@2-$3SP?(&ZJN3NL@#:
  140. MX>;1-VZW@59B3X&]WXW`D>`%P(2SMD_\CZ*>"\/C0W[@4UHJ_M)J?I4^EAP;D
  141. M?9\+>,<ALP84#0?BIU8L!V.H?1EBHZ?(1WX(\[3\:.C[>4?`)=.@CB5]="YG;
  142. 9F(Q"!CD!0F;H8,9&&!(HNU+X%^O1@"_0`'X(1
  143. ``
  144. end
  145. size 4390
  146. ------------------------------ CUT HERE ------------------------------
  147.  
  148.    I hope you find this useful, but please keep in mind it is provided for
  149. example purposes ONLY. Direct cut & paste of the code is a copyright
  150. infringement. (This code come right out of my software.) - Enough of the
  151. legal stuff.
  152.    If you have any questions, please feel free to send me a note!!!
  153.  
  154.             Scott Czarcinski
  155.             czar1@nosc.mil
  156.  
  157. -------
  158.